home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / BUTTONS / XTOOLBTN / XTOOLBTN.INT < prev    next >
Text File  |  1996-05-26  |  3KB  |  83 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       xTool - Component Collection                    }
  4. {                                                       }
  5. {       Copyright (c) 1995 Stefan B÷ther                }
  6. {                                                       }
  7. {*******************************************************}
  8. unit xToolBtn;
  9.  { 27.03.96  Added auto-created menuitems and other stuff    Stefc }
  10.  
  11. interface
  12.  
  13. uses
  14.   WinTypes, SysUtils, WinProcs, Messages, Classes, Controls, Forms,
  15.   StdCtrls, ExtCtrls, Buttons, Menus, Graphics;
  16.  
  17. type
  18.   TButtonBmp  = 0..90;
  19.  
  20. const
  21.   bbNone      = TButtonBmp(0);
  22.   bbExit      = TButtonBmp(1);
  23.   bbNew       = TButtonBmp(2);
  24.   bbOpen      = TButtonBmp(3);
  25.   bbSave      = TButtonBmp(4);
  26.   bbPrint     = TButtonBmp(5);
  27.   bbPreview   = TButtonBmp(6);
  28.   bbSearch    = TButtonBmp(7);
  29.   bbCut       = TButtonBmp(8);
  30.   bbCopy      = TButtonBmp(9);
  31.   bbPaste     = TButtonBmp(10);
  32.   bbUndo      = TButtonBmp(11);
  33.   bbDateTime  = TButtonBmp(12);
  34.   bbPen       = TButtonBmp(13);
  35.   bbInput1    = TButtonBmp(14);
  36.   bbInput2    = TButtonBmp(15);
  37.   bbMarker    = TButtonBmp(16);
  38.   bbUnknown1  = TButtonBmp(17);
  39.   bbFont      = TButtonBmp(18);
  40.   bbBold      = TButtonBmp(19);
  41.   bbItalic    = TButtonBmp(20);
  42.   bbUnderline = TButtonBmp(21);
  43.   bbFontColor = TButtonBmp(22);
  44.   bbLeft      = TButtonBmp(23);
  45.   bbCenter    = TButtonBmp(24);
  46.   bbRight     = TButtonBmp(25);
  47.   bbBullet    = TButtonBmp(26);
  48.   bbUnknown2  = TButtonBmp(27);
  49.   bbUnknown3  = TButtonBmp(28);
  50.   bbUnknown4  = TButtonBmp(29);
  51.   bbUnknown5  = TButtonBmp(30);
  52.   bbPrevTopic = TButtonBmp(31);
  53.   bbNextTopic = TButtonBmp(32);
  54.   bbUnknown6  = TButtonBmp(33);
  55.   bbUnknown7  = TButtonBmp(34);
  56.   bbHome      = TButtonBmp(35);
  57.   bbFree1     = TButtonBmp(36);
  58.   bbIcon      = TButtonBmp(73);
  59.   bbSmallIcon = TButtonBmp(74);
  60.   bbList      = TButtonBmp(75);
  61.   bbReport    = TButtonBmp(76);
  62.  
  63. type
  64.   TxToolButton = class(TSpeedButton)
  65.   protected
  66.     procedure Loaded; override;
  67.     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  68.   public
  69.     constructor Create(AOwner: TComponent); override;
  70.     destructor Destroy; override;
  71.   published
  72.     property Button: TButtonBmp read fButtonBitmap write SetButtonBitmap default bbNone;
  73.     Property MenuItem: TMenuItem read FMenuItem write SetMenuItem;
  74.     property Spacing: Boolean read FSpacing write FSpacing;
  75.     property Glyph: TBitmap read GetGlyph write SetGlyph stored IsGlyphStored;
  76.     property Caption: String read FCaption write FCaption;
  77.     property ShortCut: TShortCut read FShortCut write FShortCut;
  78.   end;
  79.  
  80. procedure Register;
  81.  
  82. implementation
  83.